home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / psutil.arc / SD PS / PM CONV (.txt)
Encoding:
Commodore BASIC  |  1993-04-29  |  5.2 KB  |  173 lines
  1. 2 POKE53280,15:POKE53281,1:PRINT"[147]"CHR$(14)CHR$(8)
  2. 100 REM ** SE
  3. 110 PRINT"[147]"
  4. 120 PRINT"[208][210][201][206][212][211][200][207][208][160]<=>[160][208][210][201][206][212][205][193][211][212][197][210][146]"
  5. 130 PRINT:PRINT"[210][207][199][197][210][160][202][207][206][197][211][146]"
  6. 140 PRINT:PRINT"[149][195][207][205][205][207][196][207][210][197][160][213][211][197][210][211][160][207][198][160][194][193][210][212][204][197][211][214][201][204][204][197][144]"
  7. 150 FORWW=1TO5000:NEXT
  8. 160 PRINT"
  9. 170  [143]   PRINT SHOP <=> PRINT MASTER
  10. 180  [143]   ROGER JONES
  11. 190  [143]   COMMODORE USERS OF BARTLESVILLE
  12. 200  [143]
  13. 210 [129]WW[178]826 [164] 921:[135] YY:[151]WW,YY:[130]
  14. 220 [131] 76, 96, 3, 162, 1, 32
  15. 230 [131] 198, 255, 32, 228, 255, 160
  16. 240 [131] 0, 145, 251, 230, 251, 208
  17. 250 [131] 8, 230, 252, 165, 252, 201
  18. 260 [131] 160, 240, 6, 165, 144, 41
  19. 270 [131] 64, 240, 231, 76, 204, 255
  20. 280 [131] 162, 1, 32, 201, 255, 160
  21. 290 [131] 0, 162, 11, 224, 11, 144
  22. 300 [131] 17, 165, 2, 208, 6, 224
  23. 310 [131] 11, 240, 14, 176, 5, 169
  24. 320 [131] 139, 32, 210, 255, 162, 0
  25. 330 [131] 177, 251, 32, 210, 255, 232
  26. 340 [131] 230, 251, 208, 2, 230, 252
  27. 350 [131] 165, 251, 197, 253, 208, 217
  28. 360 [131] 165, 252, 197, 254, 208, 211
  29. 370 [131] 76, 204, 255, 0, 0, 0
  30. 380 [151]55,0:[151]56,40:[156]
  31. 390 PG[178]40:MX[178]40
  32. 400 S$[178]" (null)LEFT$(null)(null) ":D$[178]" (null)ATN(null)(null)VAL(null) ":[153]"STOPVALNTER SWAIT FOR (null)(null)RIGHT$(null)(null)"S$"TO (null)(null)RIGHT$(null)(null)"D$
  33. 410 [153]"   OR MWAIT FOR (null)(null)RIGHT$(null)(null)"D$"TO (null)(null)RIGHT$(null)(null)"S$
  34. 420 [133]C$:[139]C$[179][177]"M"[175]C$[179][177]"S"[167]400
  35. 430 Z$[178][199](0):Q$[178][199](34):CL$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":C[178]2:MN[178]11
  36. 440 [139]C$[178]"M"[167]A$[178]S$:S$[178]D$:D$[178]A$:C[178]0:MN[178]16
  37. 450 [134]F$(MX),F(MX),T(MX),NF$(MX):[151]2,C
  38. 460 [153]"LOAD(null)(null)RIGHT$(null)(null)"S$"(null)(null) (null)(null)RIGHT$(null)(null)"D$"ASCRIGHT$(null)VAL LEN(null)(null)(null)VAL(null)(null)(null)";
  39. 470 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(";:S0[178]0
  40. 480 [153]"RIGHT$NSERT (null)(null)RIGHT$(null)(null)"S$"(null)(null)(null)(null)LENVALSTOP DISK.
  41. 490 PRINT"THE DISK DRIVE AND PRESS THE [210][197][212][213][210][206][146] KEY"
  42. 500 GETA$:IFA$<>CHR$(13)THEN500
  43. 510 OPEN15,8,15,"I0":GOSUB1640:IFEGOTO1600
  44. 520 IFS1>0THEN550
  45. 530 INPUT" [198]ILENAMES TO MATCH ? *[157][157][157]";G$
  46. 540 IFRIGHT$(G$,1)<>"*"THENG$=G$+"*"
  47. 550 OPEN1,8,0,"$0:"+G$:GOSUB1640
  48. 560 IFETHENPRINT"[154] [195]ANNOT READ DIRECTORY [146]":GOTO1600
  49. 570 PRINT" '[195][144]' TO COPY FILE    '[210][144]' TO REJECT FILE
  50. 580 [153]" 'PEEKSTOP' TO BEGIN COPY   'ATNSTOP' TO ABORT COPY"
  51. 590 [161]#1,A$,B$:N[178]0:AD[178]PG[172]256
  52. 600 [151]781,1:[158]65478:[143] SEE RUN SPECIAL ED 1986  P.127
  53. 610 [161]A$,B$:[139]B$[178]""[167][158]65484:S0[178]0:[137]900
  54. 620 [161]A$,B$:F$[178]""
  55. 630 SZ[178][198](A$[170]Z$)[170][198](B$[170]Z$)[172]256
  56. 640 [161]A$:[139]64[175]ST[167][158]65484:S0[178]0:[137]900
  57. 650 [139]A$[179][177]Q$[137]640
  58. 660 [161]A$:[139]A$[179][177]Q$[167]F$[178]F$[170]A$:[137]660
  59. 670 [161]A$:[139]A$[179][177]" "[137]670
  60. 680 [161]T$:[139]T$[178]" "[137]680
  61. 690 [161]A$:[139]A$[179][177]""[137]690
  62. 700 [158]65484: [143] PRINTF$
  63. 710 [139]SZ[179][177]3[176]T$[179][177]"P"[137]600
  64. 720 [139]C[175][201](F$,4)[178]".GRA"[137]600
  65. 730 [139]C[178]0[175][201](F$,4)[179][177]".GRA"[137]600
  66. 740 S0[178]S0[170]1:[139]S1[177]S0[167]600
  67. 750 [153]SZ;[163]5);T$;" ";Q$;F$;Q$;[163]26);
  68. 760 [153]"_ C:R:B:A?WAITCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  69. 770 [161]A$:[139]A$[178]""[137]770
  70. 780 [139]A$[178]"R"[167][153]"CONTREJECT FILESTOP":[137]600
  71. 790 [139]A$[178]"B"[167][153]"CONTBEGIN COPYSTOP":S0[178]S0[171]1:[137]900
  72. 800 [139]A$[178]"A"[167][153]"CONTABORT COPYSTOP":[137]1530
  73. 810 [139]A$[179][177]"C"[167]770
  74. 820 N[178]N[170]1:F$(N)[178]F$:[153]"CONTCOPY FILESTOP "
  75. 830 [139]C[178]0[167]NF$(N)[178][200](F$,[195](F$)[171]4):[137]870
  76. 840 NF$(N)[178]"":[129]I[178]1[164][195](F$):[139][202](F$,I,1)[178]" "[167]NF$(N)[178]NF$(N)[170]"-":[137]860
  77. 850 NF$(N)[178]NF$(N)[170][202](F$,I,1)
  78. 860 [130]I:[139][195](NF$(N))[177]11[167]NF$(N)[178][200](NF$(N),11)
  79. 870 I[178]N:[141]1690
  80. 880 AD[178]AD[170]SZ[172]256:[139]N[179]MX[137]600
  81. 890 [153]" (null)AXIMUM OF";MX;"FILES."
  82. 900 [160]1:[153]"";[166]11);N;"FILES TO READ"
  83. 910 AD[178]PG[172]256:[139]N[178]0[137]1530
  84. 920 [139]N[177]1[167][141]1750
  85. 930 [129]I[178]1[164]N:[153]Q$;F$(I);Q$;[163]20);
  86. 940 SZ[178][181](AD[173]256)
  87. 950 [151]251,AD[171]SZ[172]256:[151]252,SZ
  88. 960 [159]1,8,2,"0:"[170]F$(I)[170]",P":[141]1640
  89. 970 [139]E[178]74[167][160]1:N[178]I[171]1:[137]1110
  90. 980 [139]E[167][160]1:F$(I)[178]"":[137]1100
  91. 990 [161]#1,Y$,X$:[139]Y$[178]""[167]Y$[178]Z$
  92. 1000 [139]X$[178]""[167]X$[178]Z$
  93. 1010 [139](C[175]X$[179][177]"X")[176](C[178]0[175]Y$[179][177]"P")[167]ES[178]1:[153][198](Y$)[198](X$)
  94. 1020 [139]C[178]0[167][161]#1,Y$,Y$,Y$,Y$,Y$
  95. 1030 [158]831:[141]1640:[160]1:[139]E[178]74[167]N[178]I[171]1:[137]1110
  96. 1040 [139]E[167]F$(I)[178]"":[137]1100
  97. 1050 [139][194](252)[178]160[167]F$(I)[178]"":[153]"(null)(null)(null) (null)ATN(null)CHR$VALWAIT":[137]1100
  98. 1060 F(I)[178]AD:AD[178][194](251)[170][194](252)[172]256:T(I)[178]AD
  99. 1070 SZ[178]T(I)[171]F(I)[170]2:[139]C[178]0[167]SZ[178]SZ[170]5
  100. 1080 [153][201]("   "[170][196](SZ),5);" BYTES OF MEM"
  101. 1090 [139]ES[167][153]"(null)HIS MAY NOT BE A (null)(null)RIGHT$(null)(null)"S$"FILE!!":ES[178]0
  102. 1100 [130]I
  103. 1110 [139]N[178]0[137]1600
  104. 1120 [129]QQ[178]1[164]30
  105. 1130 [151]54273,70:[151]54278,249:[151]54296,15:[151]54276,17:[151]54276,16
  106. 1140 [130]
  107. 1150 [153]"RIGHT$NSERT (null)(null)RIGHT$(null)(null)"D$"STR$VAL(null)(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)STOP DISK.
  108. 1160 INPUT"[198][207][210][205][193][212][144] THIS DISKETTE  N[157][157][157]";A$
  109. 1170 PRINT
  110. 1180 IFA$<>"Y"THENPRINT#15,"I0":GOTO1210
  111. 1190 INPUT" [196]ISK NAME,ID";F$,T$
  112. 1200 PRINT#15,"N0:"+F$+","+T$
  113. 1210 GOSUB1640:IFEGOTO1110
  114. 1220 FORI=1TON
  115. 1230 IFNF$(I)=""GOTO1470
  116. 1240 PRINTQ$;NF$(I);Q$;TAB(20);
  117. 1250 IFNF$(I)<>F$(I)THENPRINT"[156]"+F$(I)+LEFT$(CL$,LEN(F$(I))+4)"[144]":PRINT"[145]"TAB(20);
  118. 1260 OPEN1,8,2,NF$(I)+",P,W"
  119. 1270 GOSUB1640:IFE=0GOTO1350
  120. 1280 CLOSE1:REM IFE=63THEN730
  121. 1290 PRINT"     [198][201][204][197] [197][216][201][211][212][211]   ":PRINT" [210][144] -REPLACE [206][144] -NEW NAME [194][144] -BYPASS
  122. 1300 [161]A$:[139]A$[178]""[167]1300
  123. 1310 [139]A$[178]"N"[167][141]1690:[137]1230
  124. 1320 [139]A$[178]"B"[137]1470
  125. 1330 [139]A$[179][177]"R"[137]1300
  126. 1340 [153]"(null)VAL(null)(null)ATNLENRIGHT$(null)CHR$":[152]15,"S0:"[170]NF$(I):[137]1240
  127. 1350 SZ[178][181](F(I)[173]256)
  128. 1360 [151]251,F(I)[171]SZ[172]256:[151]252,SZ:[139]C[167]T(I)[178]T(I)[171]5
  129. 1370 SZ[178][181](T(I)[173]256)
  130. 1380 [151]253,T(I)[171]SZ[172]256:[151]254,SZ
  131. 1390 [139]C[178]0[167][152]1,Z$"X";:[137]1410
  132. 1400 [152]1,[199](80)[199](119)[199](88)Z$[199](52)Z$[199](180);
  133. 1410 [158]828:[141]1640:[139]C[178]0[167][152]1,Z$Z$Z$Z$Z$;
  134. 1420 [160]1:[139]E[178]72[176]E[178]74[137]1510
  135. 1430 [139]E[137]1470
  136. 1440 SZ[178]T(I)[171]F(I):[139]C[167]SZ[178]SZ[170]59
  137. 1450 [139]C[178]0[167]SZ[178]SZ[171]45
  138. 1460 [153][201]("   "[170][196](SZ),5);" BYTES OF MEM "
  139. 1470 [130]I
  140. 1480 [129]QQ[178]1[164]30
  141. 1490 [151]54273,70:[151]54278,249:[151]54296,15:[151]54276,17:[151]54276,16
  142. 1500 [130]
  143. 1510 [153]"(null)AVE SAME (null)(null)RIGHT$(null)(null)"D$"FILES AGAIN? NCMDCMDCMD";:[133]A$
  144. 1520 [139]A$[178]"Y"[137]1110
  145. 1530 [160]1:[160]15
  146. 1540 [153]"(null)ORE (null)(null)RIGHT$(null)(null)"S$"FILES TO COPY? YCMDCMDCMD";:[133]A$
  147. 1550 [139]A$[179][177]"Y"[167]1600
  148. 1560 S1[178]0:[139]S0[179]1[167]460
  149. 1570 [153]"(null)TART WITH LAST (null)(null)RIGHT$(null)(null)"S$"FILE? YCMDCMDCMD";:[133]A$
  150. 1580 [139]A$[178]"Y"[167]S1[178]S0[170]1
  151. 1590 [137]460
  152. 1600 [153][163]14)"VAL(null)STR$ (null)ASC LEN(null)(null)(null)"
  153. 1610 [153][163]7)"(null)LEASE REMOVE THE DISKETTE"
  154. 1620 [153][163]11)"FROM THE DISK DRIVESTOP"
  155. 1630 [153][199](9);:[151]56,160:[128]
  156. 1640 [132]15,E,E$,E1,E2
  157. 1650 [139]E[178]0[167][142]
  158. 1660 EE$[178][202]([196](E),2):E1$[178][202]([196](E1),2):E2$[178][202]([196](E2),2)
  159. 1670 [139]E[178]63[167][142]
  160. 1680 [153]:[153]"";EE$;",";E$;",";E1$;",";E2$
  161. 1690 [153]" (null)VAL(null) (null)ATN(null)VALSTOP   "NF$(I)[200](CL$,[195](NF$(I))[170]2);
  162. 1700 [133]F$:[139][195](F$)[177]MN[167][153]"(null)ENGTH MUST BE LESS THAN"MN:[137]1690
  163. 1710 A[178]1:[139]C[178]0[167]NF$(I)[178]F$:[142]
  164. 1720 [139][202](F$,A,1)[178]" "[167][153]"NAME CANNOT CONTAIN SPACES.":[137]1690
  165. 1730 A[178]A[170]1:[139]A[179][178][195](F$)[167]1730
  166. 1740 NF$(I)[178]F$[170]".GRA":[142]
  167. 1750 [133]"LENLEFT$ATN(null)CHR$VALSTOP LEN(null)(null)(null) (null)VAL(null)(null)VAL(null)LENVAL  NCMDCMDCMD";A$:[139][200](A$,1)[178]"N"[167][142]
  168. 1760 [129]I[178]1[164]N:[153]I;NF$(I):[130]I
  169. 1770 [153]"VALNTER # TO MOVE, POSITION TO MOVE TO
  170. 1780 INPUT"   0,0 -TO START COPY";I1,I2:IFI1=0THENRETURN
  171. 1790 NF$(0)=NF$(I2):NF$(I2)=NF$(I1):NF$(I1)=NF$(0)
  172. 1800 F$(0)=F$(I2):F$(I2)=F$(I1):F$(I1)=F$(0):GOTO1760
  173.